home *** CD-ROM | disk | FTP | other *** search
/ ASME's Mechanical Engine…ing Toolkit 1997 December / ASME's Mechanical Engineering Toolkit 1997 December.iso / ai / prlg195b.lzh / SAMPLES.LZH / CONSOLE.PRO < prev    next >
Text File  |  1986-07-20  |  640b  |  19 lines
  1. get_answer( A ) :- 
  2.     ratom( X ), name( X, String ),
  3.         valid_resp( String, A ), !.
  4.  
  5. valid_resp( [H|T], A ) :- type_ans( H, A ).
  6.  
  7. type_ans( X, A ) :- ([X] = "y"; [X] = "Y"), A = yes.
  8. type_ans( X, A ) :- ([X] = "n"; [X] = "N"), A = no.
  9. type_ans( X, A ) :- ([X] = "w"; [X] = "W"), A = why.
  10.  
  11. ?-print('\nYou can start animal by typing "help.<CR>"\n' ).
  12.  
  13. valid_resp( [], A ) :-
  14.     print('\nPlease try to give me a yes or no answer.'),
  15.     get_answer( A ), !.
  16.  
  17. valid_resp( [H|T], A ) :- valid_resp( T, A ).
  18.  
  19.